home *** CD-ROM | disk | FTP | other *** search
/ Nautilus 1992 July / Nautilus-3-8 / Nautilus-3-8.bin / Tools & Utilities / Techy Stuff / Source ƒ / egrep-1.5 / grep-src / gff.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-08-28  |  4.8 KB  |  172 lines
  1. /*______________________________________________________________________
  2.  
  3.     gff.c - Get File or Folder.
  4.     
  5.     Copyright ⌐ 1988, 1989, 1990 Northwestern University.  Permission is granted
  6.     to use this code in your own projects, provided you give credit to both
  7.     John Norstad and Northwestern University in your about box or document.
  8.     
  9.     This reusable module presents a modified standard open file dialog.
  10.     There are two extra buttons which can be used to pick a folder instead
  11.     of a file.  
  12.     
  13.     The caller supplies the id of the dialog to be used.  It must be a 
  14.     standard open file dialog with two additional buttons:
  15.     
  16.     item 11 = Select current folder button.
  17.     item 12 = Folder button.
  18. _____________________________________________________________________*/
  19.  
  20. #include <Mac #includes.c>
  21. #include "gff.h"
  22.  
  23. /*______________________________________________________________________
  24.  
  25.     Constant Definitions.
  26. _____________________________________________________________________*/
  27.  
  28.  
  29. #define getSCFold        11            /* item number of select current folder 
  30.                                             button */
  31. #define getFold        12            /* item number of folder button. */
  32.  
  33.  
  34.  
  35.  
  36. /*______________________________________________________________________
  37.  
  38.     Global Variables.
  39. _____________________________________________________________________*/
  40.  
  41.  
  42. static SFReply        *Reply;                /* pointer to reply record */
  43. static Boolean        FolderActive;        /* true if folder button is active */
  44. static short        Item;                    /* item number of selected item */
  45. static OSType        DirID;                /* dir id of selected folder */
  46.  
  47.  
  48. /*______________________________________________________________________
  49.  
  50.     HiliteFolderButton - Hilite the Folder Button.
  51.     
  52.     Entry:    theDialog = pointer to dialog.
  53.                 active = true to make button active, false to make it inacative.
  54. _____________________________________________________________________*/
  55.  
  56.  
  57. static void HiliteFolderButton (DialogPtr theDialog, Boolean active)
  58.  
  59. {
  60.     short                itemType;            /* item type */
  61.     Handle            item;                    /* handle to item */
  62.     Rect                box;                    /* item rectangle */
  63.  
  64.     GetDItem(theDialog, getFold, &itemType, &item, &box);
  65.     HiliteControl((ControlHandle)item, active ? 0 : 255);
  66.     FolderActive = active;
  67. }
  68.  
  69. /*______________________________________________________________________
  70.  
  71.     MyHook - SFPGetFile Dialog Hook.
  72.     
  73.     Entry:    item = item number of selected item.
  74.                 theDialog = pointer to dialog.
  75.                 
  76.     Exit:        function result = item number of selected item.
  77. _____________________________________________________________________*/
  78.  
  79.  
  80. pascal short MyHook (short item, DialogPtr theDialog)
  81.  
  82. {
  83.     Item = item;
  84.  
  85.     /* Hilite the Folder button iff a folder is currently selected. */
  86.  
  87.     if (!*(Reply->fName) && Reply->fType) {
  88.         if (!FolderActive) HiliteFolderButton(theDialog, true);
  89.     } else {
  90.         if (FolderActive) HiliteFolderButton(theDialog, false);
  91.     };
  92.     
  93.     /* Check for our two additional buttons.  If either one was selected
  94.         pretend the Cancel button was selected to force SFPGetFile to return. */
  95.     
  96.     if (item == getSCFold) return getCancel;
  97.     if (item == getFold) {
  98.         DirID = Reply->fType;
  99.         return getCancel;
  100.     };
  101.     
  102.     /* For all other buttons do nothing. */
  103.     
  104.     return item;
  105. }
  106.  
  107. /*______________________________________________________________________
  108.  
  109.     gff_get - Get File or Folder
  110.     
  111.     Entry:    where = pointer to location of top left corner of dialog, in 
  112.                     global coords.
  113.                 prompt = prompt string.
  114.                 fileFilter = file selection filter procedure.
  115.                 numTypes = number of file types.
  116.                 typeList = array of file types.
  117.                 reply = pointer to standard file package reply record.
  118.                 dlgID = dialog resource id.
  119.                 
  120.     Exit:        reply->good = true if something selected.
  121.                 
  122.                 if a file was selected:
  123.                 
  124.                 reply->vRefNum = vol ref num or working directory ref num of 
  125.                     volume or directory that contains the file.
  126.                 reply->version = vol ref num of volume that contains the file.
  127.                 reply->fName = name of the file.
  128.                 
  129.                 if a folder was selected:
  130.                 
  131.                 reply->vRefNum = vRefNum of volume containing folder.
  132.                 reply->fType = directory id of folder.
  133.                 reply->fName = empty string.
  134. _____________________________________________________________________*/
  135.         
  136.         
  137. void gff_Get (Point *where, Str255 prompt, FileFilterProcPtr fileFilter, 
  138.     short numTypes, SFTypeList typeList, SFReply *reply, 
  139.     short dlgID)
  140.  
  141. {
  142.     /* Initialize global variables. */
  143.  
  144.     Reply = reply;
  145.     FolderActive = true;
  146.     
  147.     /* Call the standard file package. */
  148.     
  149.     SFPGetFile(*where, prompt, fileFilter, numTypes, typeList, MyHook,
  150.         reply, dlgID, nil);
  151.     
  152.     /* Return if dialog canceled. */
  153.     
  154.     if (Item == getCancel) return;
  155.     
  156.     /* If file selected set version field to vol ref num and return. */
  157.     
  158.     if (reply->good) {
  159.         reply->version = - SFSaveDisk;
  160.         return;
  161.     };
  162.     
  163.     /* If a folder was selected clear the file name and set the vRefNum
  164.         and directory id. */
  165.     
  166.     reply->good = true;
  167.     *(reply->fName) = 0;
  168.     reply->vRefNum = - SFSaveDisk;
  169.     reply->fType = (Item == getFold) ? DirID : CurDirStore;
  170.     return;
  171. }
  172.